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AAAAAAAAA 
AAAAAAAAA 
AAAAAAAAA 
AAA 
AAA Aah 
aA bad 
ARB ALA 
Llalal ABA 
AAA A 
AMA AaB 
AAA ARM 
Aka Bak 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
ABA AAA 
AKA A 
BRA AAA 
AAA AAA 
AAA AAA 
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AEOAAIMAOAAIAIMAIMOIAIMAIAIMAIAIY 
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PPPPPPPPPPPP 
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PP PPP 
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**F ILE**1D0**BLOCK 


BBBBBBBB LL 000000 cccccccce KK KK 

BBBBBBBB LL 000000 ccccccce =KK KK 

BB BB LL 00 oo CC KK KK 

BB BB LL 00 oo CC KK KK 

BB BB LL 00 oo CC KK KK 

BB BB LL 00 oo cc KK 

BBBBBBBB LL 00 oo CC KKKKKK 

BBBBBBBB LL 00 oo CC KKKKKK 

BB BB LL 00 oo cc KK K 

BB BB LL 00 oo CC KK KK 

88 BB LL 00 oo cc KK eK cece 
BB BB LL 00 oo cc KK KK oes 
BBBBBBBB LLLLLLLLLL 000000 cccccccc SKK KK eoee 
BBBBBBBB LLLLLLLLLL 000000 cccccccc =CKK KK cece 
LL III] SSSSSSSS 

LL HII] SSSSSSSS 

LL I] $$ 

LL I] SS 

LL I] $$ 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL II SS 
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VO4=000 "SSEP=1986 09:10:25 EmVANCE. SRCIBLUCK MAR; 1 


1 -THTLE LO 
¢ -IDENT ‘v04-000' 
0 4 ; 
44 5 3 ee ee a ene ene aes 
e ® 
000 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 B ” 
000 8 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. # 
48 10 a ALL RIGHTS RESERVED. * 
o ® 
0000 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gk * 
$008 \ :* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
15 ;* INCLUSION OF ha “Abo VE Spidhid NOTICE. THIS SOFTWARE OR ANY OTHER * 
0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
4 16 ‘* TRANSFERRED. * 
° ® 
$000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AN OULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 , ‘* CORPORATION. * 
P+ ® 
0000 ¢ 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
4464 ? is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
: 
0000 é | d cdanehahbensebdbetneunennenheeentiisbaubidnsanintetareteeeenNNeeDebtenenes 
0000 «58 
0000 $2 p++ 
$000 8}. Facilit tic t 
3 Fac : magnetic tape a 
9000 $2 ; 2 . ei 
0000 3; Abstract 
8008 : : Seis module handles the blocking and unblocking of the process 
0000 6; 
OE epee ren i ti ten, tactudinn priviteced syst i 
3 starlet operating system, including pr eged system services 
0000 39 ; and ineernal pie Pout inne. oe > 
0000 40 ; 
0000 41; 
48 ry : Author: DEBORAH H. GILLESPIE, Creation Date: 05-JUL-1977 
3083 44 ; Modified By: 
000 46: v02-005 pMw00025 David Michael Walp 20-Jul-1981 
4 rt : Changed free page handling to not contract PO region 
$000 49: V02-004 DmMw00010 David Michael Walp 14-Mar-1981 
0000 29 : Changed calculation of CCB address using GET_CCB 
$00 26 : v02-003 eooted Kathleen D. Morse 12-Feb-1981 
000 3 Change non-kernel mode reterences to SCH$GL_CURPCB 
bp : ; to use CTL$GL_PCB instead. 
09 2 ; V02-002 REFORMAT D M WALP 25-JUL-1980 


oe 


00000000 
00009001 


0000000C 


00000004 
00000008 


Revision History: 


- GILLESPIE, VERSION a0001, lecmar~t9re 
aboot - change current_ vcb to regi ster 


$: 
- include mtadef.mar 


Equated Symbols: 


OOOOOOOOOOOOOCOOOOOOOOOOooO 
COOoOCoOoCoCoOooooooooooooooooscoo 
COOCOQOQCoooQoQooQoQooooooooooooo 
OOCOCCGCCGOOOOCCOOOOOOOCOOooO 


: displacements of interesting 


> parameters for kernel_block 


Own Storage: 


SOOOSGOOO OO OOOO O00 000 09.09 09 09 09 69 09 09 09 SII NINN NINO AAA AAAAAOUN 
NOUS WN SO OONOA UNE WIN OS OO NAME WIN 9 OONOAUE WN -OOONOUE Wn OOo 


SOOOS VVUS™-OOOOOOOOSOSSoS 
SOC ooooo7T SGOOoOOSOOoOSoSoSoo 
So SOOO OOOWOOOOSOOOSSoS 
SBOOOCOOOOMOOCOCOSSOSSoo 


at ae A a 


P-1964 08:16:25 EMVANCP.SRCJOLUCK-MaR;1 28° 


3 ast exit change mode code 
3; exec mode 


variables on stack 


Location on stack of saved 
fp of caller 


mask in status to set indicating 
reason for bloc 
first argument is page address 


define volume control block 
define volume virtual page 


1 
| 
B 13 
BLOCK 16-SEP-1984 02:02: AX/VMS Macro V04-00 Page | 
v04=000 Breen 19B6 03:40:08 EMTAACE. SAE TOLOCK RAR: 1 oe 4) 
0 109 
i ee | 
5 
4 116 ; BLOCK = this routine handles the blocking of current request 
0 114 ; Calling sequence: 
8 12 ; call arglist,block | 
00 113 3; Input Parameters: 
444 BY : reason(ap) - mask of status bit to be set indicating reason for block 
$38 120 ; Implicit Inputs: 
4 : 13 the exec stack | 
0000. =«+1 § ; Output Parameters: . | 
0000 124; none 
0000 125; 
0000 126 ; Implicit Outputs: ; 
444 ist : virtual page(s) containing stack and impure area | 
0000 1¢3 : Routine Value: 
0000 130; none 
0000 131; 
0000 13 3; Side Effects: 
0000 133; the request’s exec stack and impure area are saved 
0000 134 ;-- 
0000 135 
0000 136 
00000000 137 -PSECT S$CODE$,NOWRT,LONG 
0000 138 
0000 139 BLOCK:: 
OF FC si 4 179 «WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R1I0,R11>; save registers 
0002 nk : 
BOOS 143; block current process 
000 144 ; 
BOOS 145 
50 O¢ AD 00 000 146 10$: MOVL PREVFP(FP) ,RO 3 et previous frame pter 
60 00000000°8F 01 0006 147 CMPL #EXCEPT_HNDLR, (RO) ; does it contain the exception handler 
05 13 443 148 BEQLU 20% ; yes, leave fp at frame before this one 
5D 50 DO QOOF 149 MOVL RO,FP 3; try next one 
gE 11 pie 150 BRB : check it 
56 50 E C3 0014 151 208: SUBL SP,RO,R6 ; calc # of bytes of stack to save 
0000000E *BF C1 0018 138 ADDL #JMPURE_SIZE+2+VVPSK_LENGTH, 
5 6 O1E 15 R6,R ; save impure area, length and 
0020 154 : include fixed area of virtual blocks 
58 4 0020 155 CLRL R8 3; r7-r8 quotient 
51 50 57 00000200 8F 022 156 EDIV #512,R7,R0,R1 :; calc # of virtual pages needed 
51 OD 02B 157 TSTL R1 ; is another page neede 
9¢ 1 02D 158 BEQL 50$ 3; no 
D6 , (199 INCL RO : yes, inc # of pages needed 
7E =sODF 1 160 50$: PUSHAL -=-(SP) ; allocate space to store address of 
0 161 :; free page and push that addr 
50 dD 00 16¢ PUSHL RO ; # of pages needed 
00000000 EF FB 8 16 CALLS #2,GET_FREE_PAGE : get virtual page(s) 
BA C 164 POPR #*M<R35 ; get free page address off stack 
OA A3 0 OO3E 165 MOVB #VVP_TYPE ,VVPSB_TYPE(R3); set block type to virtual page 


4 166 
& H 
2 ij ; change to kernel mode to insert in volume virtual page queue 
53 DD 7 Mi PUSHL R3 ; address of te 
04 A DD 4 17 PUSHL Barns 3; reason for block 
5 DD 47 17 PUSHL 3; one argument 
gf D 49 174 PUSHL ; address of argument List 
0 ODO'EF F 48 175 PUSHAB KERNEL PL ock 
0000 SOO. oF $5 : S88 158 moves SihpuRe S17 SITE at SER. STATUS ,- 
oe ae ore AS Got 178 VVPSK_LENGTH(R : move impure area to virtual page 
83 wa. 063 179 MOVW Re, (R i 3 amount of stack 
$6 rs ot ben 18) CCRL mG. (SP) (RS) ; areceed aangiekted of io 
ene Se be $090 18 RET ; return to control with all 
0071 188 3; register clobbered 


MOREE BEBE AREE SRELAME RH 


SH SRAGESE HOUR Sse OEMs 


+ 
* 


UNBLOCK = this routine locates the stack and impure area for the blocked 
rocess. it restores the impure area, locates the exception 
andler on the stack and overlays the stack beginning just 

following the exception handler frame. it returns the virtual 
address space to the free page List. it then returns to where 
the blocked process left off. 


Calling sequence: 
call unblock 


Input Parameters: 
none 


Implicit Inputs: , 
the exec stack, current_vcb(in r11) and its associated virtual pages 


Output Parameters: 
none 


Implicit Outputs: 
virutal page(s) ee saved data are returned to the free pages 
List stack is restored. the exec stack is restored to state before 
process was blocked. if an ast triggered the unblocking of the proces, 
an exit ast is done. 


Routine Value: 
none 


Side Effects: 


0000 -PSECT S$CODE$,NOWRT,LONG 
-EXTRN GET_CCB 


UNBLOCK: : 
~WORD “M<> 


MOVL VCBSL_VPBL(R11),R6 


0000 
56 40 AB 00 


don't save registers 


pickup tail of virtual page List, 
con*ains saved process status 


0000'8F 28 MOVC3 #IMPURE_SIZE,- 
OC A6 VVP$K_LENGTH(R6) ,- ; 
00000000 EF USER_STATUS ; restore impure area first 


: locate exception handler on stack 
10$: MOVL PREVFP(FP) FP 


CMPL #EXCEPT_HNOLR, (FP) 
BNEQU 10$ 


pickup previous fp. 
is this the exception frame? 
not found yet 


SOOOSOCOSCSOOOOCOCOSOSOSCOOCOSOOCOOOCO COSCO SCCOOCOOC COSCO COO OOOO OCOCOCOO SD OOOOOOooOO 


0000090909 0909 0908 SINISE 
FS PWAAAIAAA.NIAIAIARIPOPININININININIDS 2 HF MODOC ODOOCOOCOCOCOOOOOOOOOOWMODCDOCD 


OOD NAUES WIN OOO NAUE WN OC ODNAUE WN 0 OO NAU EWN 0 ODNAUE WN OOOnNOM 


FD ONPORIPOPONDND © DD NN a a a a kt a a a a sh ss 2 ss ss ss ss 2 2 2 2 
ROPIPIPIPIPOPOPINYAINININPININYPININPINPINININPININININININININPININININININININNNNIN eo Oe Oo oe oo oe Ss 


SSSSSSSSSSSSSSSSSssssssssssssssssssssssssssssssssssssss3sss 


5D OC AD 
60 eeeeeeeds ;' 


—9o9o 
mo 


Vi 
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F 62 3 
6 : ‘8 3; found exception handler on stack 
F 6365 — 
50 1 6 F 4 MOVZWL (R1),R0 3; convert word Length to long Length 
50 $4 5 0 g 23 SUBL2 RO,FP 3; restore stack petater by subtracting 
9 3 ; kength from exception frame address 
5E 5D 00 95 4 MOVL FP,SP 3; reset stack pointer 
6d 61 81 28 0098 250 MOVC3 (R1)+,(R1), (FP) : restore stac 
009C 51 
009C 26 3 
935 37 3; Now give back the pages used to store the stack 
009C 55 
7E 04 Q09C 2$ CLRL -(SP) 3; NO parameters 
5E DD O09E 5 PUSHL SP ; address of argument List 
OOOOOODD'EF  9F OO0A0 58 PUSHAB KERNEL_UNBLOCK ; address of subroutine to execute in 
QOA6 59 ; kernel mode : 
00000000°9F 03 FB QOA6 60 CALLS #3,@#SYSSCMKRNL ; change mode to kernel so can write 
QOAD 61 ; to sys space 
7E D4& OQOAD $06 CLAL -(SP) 3; do not contract the MTAACP space 
56 DD OOAF 6 PUSHL R6 ; addr of page 
OOOO0O000'EF O02 FB sie rf CALLS #2,RET_FREE_PAGE 3 return pages 
0088 66 ;: 
0088 67 ; if there is an active ast for exec mode, exit from it 
Oops 560° 
51 er DO 0088 70 MOVL G*CTL$GL_PCB,R1 ; address of pcb for this process 
0B 0C Al 01 «£1 OOBF 271 BBC #EXEC_MODE ,PCBSB_ASTACT(R1) ,20$ 
00C4 $SSETAST_S # ; disable ast delivery 
00 «(BC Bpee $7 CHMK S*#ASTEXIT 3; return from ast 
04 OOCF 275 20$: RET 3; return to where process blocked 


NPRESIMG ABSRGSE WAMU RESLABE Ry 
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KERNEL_BLOCK 
Ehis routine inserts a virtual page into to volume's virtual 
page queue in the volume control block and set the reason for the block 


Calling sequence: 
callg arglist,kernel_block 
called in kernel mode ~ 


Input Parameters: 


reason(ap) - mask in status to set aon ig gh reason for block 
page (ap) - address of page to insert at tail of the virtual page 
queue 


Implicit Inputs: 
current-vcb - address of current volume control block 


WOOO O OCWOMMMdOMcDDDMDcd~T~ 


MEW OOONOAUES Wt O0Oan 


Sete Se Se Ge Se Se Ge Se Be Ge Ge Ge Se Ge Fe Ge Ge Se Ge Se Se Se Ge Se Ge Se Se Ge Se Se 


SOOoOCoOOOOOOOOOOOCOOOOOOOOSoO 
SOCOGCCOCOOCOOCOOOOOOOOOOOOSOSoO 


\-4-4-4-4-4-4-4-4-4-4-4-4 4-4-4444 44 4 4 4 SS 


COOCCOCOCOCOSCOOCOOCOCOCOOO OOOO OOOOOOOOOO 


.] Output Parameters: 
3 none 
99 ; Implicit Outputs: 
89 insert complete 
0 Routine Value: 
00 0 none 
00 04 
00 05 ; Side Effects: 
00 06 none 
00 07 
00 08 ;-- 
00 09 
00 10 KERNEL_BLOCK: 
000 00D0 11 ORD ; save register one 
0B AB 04 AC 88 O00D2 \¢ Bi see REASON CAP) . VCB$B_STATUS S(R11); set reason for block 
40 BB 08 BC of ores $i jaseut @PAGE (AP) , aVCBSL~ _VPBL(R11);  h.-7 in queue 


3 
VO4=000 SSE=1986 00:10:25 EMTAACP.SREIBLUCK-MaR:1 |S 


one item removed from tail of virtual page queue 
reason's for blocking process are cleared 


Routine Value: 


Side Effects: 
none 


DD 
DD p++ 
DD ; 
DD ; KERNEL UNBLOCK 
+44 ; Ehis routine removes the tail of the virtual page queue in the 
DD $ volume control block and the volume set reasons for waiting are cleared 
44 3 it also requests any stalled i/o 
ODD ; Calling sequence: 
itd 3 callg  kernel_unblock 
4 ; called in kernel mode 
Sopp ; Input Parameters: 
sit 3 r1i - address of volume control block 
00DD 3: Implicit Inputs: 
00DD $ none 
OCDD $ 
00DD ; Output Parameters: 
0000 : none 
000D 3 
00DD 3 Implicit Outputs: 


KERNEL_UNBLOCK: 
«WORD  “M<R7 


»R8> save one register 
VCBSL_VPFL( 


DPSS Es BS BS ES EE EWAN III III RPI PINPIPINININN | 
DODWNAUNE WN SO OOONAU EWN OS OOO NAME WN O OONAUE WN OOONO 


ooo 
oooo 
ov0VTv7o 
vovCvVTSo 
WNIANINAIAI AAAI AIN AAAI AI AAAI AIAI AAA AINA AANA AANA AAAI AAI ANNAN NAAN NAAION 


58 3C AB DO OODF 1$: MOVL R11) ,.R8 : get addr of virtual page for this vol 
58 O1A8 D8 OF Opes REMQUE aVVPSC_STALLIOBL(R8),R8 ; pickup packet at end of stalled 
09 1D O0E8 BVS 2s + packet not found 
OOEA 
OOEA : 
Hy 3 requeue all stalled i/o 
OEA ; 
00000000 ' FF oe OF Mp r$ paseue (R8) ,@QUEVE_HEAD 
1¢ =B8A O0F3 6s 2$: BICB2 #<VCBSM_WAIREWIND + VCBSM_WAIMOUVOL + VCBSM_WAIUSRLBL>,- 
08 AB BOF 3 6 VCB$8_STATUS(R1T) 3 reason for blocking 
58 4068 OF a rf REMQUE a@VCBSL_VPBL(R11),R8 3 remove one entry 
OFB 06 $ : 
OFB 67 ; assign channel 
ea 
OOOOO00'EF ODD FB 4 PUSHL I0O_CHANNEL ; calc addr of channel control block 
00000 BONE 1 fe 19 71 CALLS #1,GET_CCB ; via GET_CCB in kernel mode 
60 OQO0000000°EF OD 108 72 MOVL CURRENT_UCB, (RO) 3 stuff channel with current ucb 


ee 7 


BPC "' agegeectgee 92:08:55 YaNyns macee vOK-00, Page 9, 


RET 
«END 
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197 360- 138% 0g 06:33 ayes Macro v04-00 Page 19 


BLOCK | 
Symbol table MTAACP.SRCJBLOCK MAR; 1 , 


set * HESSEE 


| 
| 
} 


CTLSGL_PCB eeneenee = § 6X p 
CURRENT UCB teneneee =X 
EXCEPT _ANDLR ereerere = 6X 
EXEC MODE = 44 44 
FCB_TYPE = 00000000 
GET_CCB eeeereee =X 0 
GET FREE PAGE etereeee =X 860 
IMPORE STZE eeneeeee 8 6X p 
HARNEL eeeeeere 8 X 
10" PACKET eeeeeeee 8 X 
KERNEL _BLOCK 00000000 R 0 
KERNEL UNBLOCK Q00000DD R 0 | 
MVL_ TYPE = 00000004 
PA = 00000008 
PCB$B_ASTACT = 0000000C 
PREVFP = 0000000C 
QUEUE HEAD eereeees X02 | 
REAS = 00000004 
RET_FREE_PAGE eeereree =X 02 
RVT_TYPE = 00000003 
SYSSCMKRNL eteeneee =X 08 
SYSSSETAST eeeneeee GX 0 
UNBLOCK 00000071 RG Os 
USER_ STATUS teneeeee XK 0 
VCB$B_STATUS = 00000008 
CBSL_ = 0000004 
vVCBSL_ = 0000003¢ 
VCBSM_WAIMOUVOL = 00000004 
VCBSM_WAIREWIND = 00000008 
VCBSM_WAIUSRLBL = 00000010 
vCB_TYPE = 00000002 
PSB_TYPE QO0000A 
VVP$K_LENGT 000000C 
VVP$L_BACKWARD 00000004 
VVPS$L_FOR 44 54 
VVP$L_STALLI 44 1A8 
VVPSL_STALLIOFL 00000144 | 
VVP$L_STATU 4443 
P$T_HDR1 38 bot 
VVPS$T_HOR 000005C 
VVPST_HDR oe5 
VVPST_HDR4 FC 
VVP$T_SCRATCH 14C 
vvP$w SIZE 00 4 
vvP_TYPE = 0000000 
WCB_ TYPE = 0000000 


J 13 


BLOCK Ig-SEP- 
Psect synopsis -SEP- 
terror cen ome wm aoe + 
! Psect synopsis ! 
tees ee rere e sm wea} 
PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 ( ) 89 ( 0.) NOPIC USSR CON 
SABSS 44's Ae ( $6 -) QO1¢ +1.) NOPIC USR CON 
SCODES 0000011 ( 272.) 02 ¢ 2.) NOPIC USSR CON 


Pwr meres eos n eam anae em eo ap me 00 ae am fe 


! Performance indicators ! 


pemoesoer arene ae eon ce nee + 


o 
v 
Cc 
=" 
~ 
3 

@ 

m 


Phase 


Lapsed Time 


Initialization 41 00:00 :00.07 00:00:01.61 
Command processing 145 00:00:00.65 00:00:04.84 
Pass 194 BF 8: 88 8 bs SP 
Symbol table sort 00:00:00.4 0:00:01.19 
Pass 7 00:00:01.25 00:00:05.37 
Symbol table output 00:00:00.06 00:00:00.47 
Psect synopsis output 3 00:00:00.02 00:00:00.02 
Cross-reference output 00:00:00.00 00:00:00.00 
Assembler run totals 469 00:00:06.49 00:00:31.17 


The working ort Limit was 1050 pages. 

21841 bytes (4 

There were 20 pages of symbol table space allocated to hold non-local and 7 
9 source Lines were read in Pass 1, producing 14 object records in Pass 2. 


16 pages of virtual memory were used to define 15 macros. 


+ + 
; Macro Library statistics H 


Macro Library name Macros defined 
~$255$DUA28: CSYS.OBJJLIB.MLB; 1 

$255$DUA28: CSYSLIBISTARLET.MLB;2 4 
TOTALS (all Libraries) 6 


384 GETS were required to define 6 macros. 
There were no errors, warnings or information messages. 


local symbols. 
MACRO/LIS=LIS$:BLOCK/OBJ=OBJ$:BLOCK MSRC$:MTADEF 1/UPDATE=(ENHS : MTADEF 1) *MSRC$:BLOCK/UPDATE=(ENH$: BLOCK) +EXECMLS$/LIB 
J 


1984 :02:5 AX/VMS Macro V04-00 Page 11 
198 95:05:38 EMTAACP. SREIBLOCK MARS 1 . (9) 
ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
REL LCL NOSHR EXE RD NOWRT NOVEC LONG 


pages) of virtual memory were used to buffer the intermediate code. 


o 
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